home *** CD-ROM | disk | FTP | other *** search
| Unknown | 1994-01-31 | 1.1 KB |
open in: 
MacOS 8.1
|
Win98
|
DOS
view JSON data
|
view as text
This file was not able to be converted.
This format is not currently supported by dexvert.
| Confidence | Program | Detection | Match Type | Support
|
|---|
| 66%
| dexvert
| GW-BASIC (document/gwBasic)
| ext
| Supported |
| 66%
| dexvert
| GFA-BASIC Atari (other/gfaBASICAtari)
| ext
| Supported |
| 1%
| dexvert
| Memotech MTX BASIC source (document/memotechMTXBASICSource)
| ext
| Unsupported |
| 1%
| dexvert
| Amiga BASIC Protected File (other/amigaBASICProtectedFile)
| ext
| Unsupported |
| 1%
| dexvert
| BAS VBDOS Pro 1.0 Source (other/basVBDOSPro10Source)
| ext
| Unsupported |
| 1%
| dexvert
| Visual Basic Tokenized Source (other/visualBasicTokenizedSource)
| ext
| Unsupported |
| 1%
| dexvert
| ZBASIC (other/zbasic)
| ext
| Unsupported |
| 100%
| file
| data
| default
|
|
hex view+--------+-------------------------+-------------------------+--------+--------+
|00000000| 86 04 00 00 0d 0a 27 20 | 43 61 72 70 65 74 2e 0d |......' |Carpet..|
|00000010| 0a 27 20 55 73 65 20 73 | 69 6e 20 61 6e 64 20 63 |.' Use s|in and c|
|00000020| 6f 73 69 6e 20 66 75 6e | 63 74 69 6f 6e 20 74 6f |osin fun|ction to|
|00000030| 20 73 69 6d 75 6c 61 74 | 65 20 61 20 75 6e 64 75 | simulat|e a undu|
|00000040| 6c 61 74 6f 72 79 20 73 | 75 72 66 61 63 65 2e 0d |latory s|urface..|
|00000050| 0a 27 20 46 6f 72 20 61 | 20 62 65 74 74 65 72 20 |.' For a| better |
|00000060| 61 6e 64 20 66 61 73 74 | 65 72 20 72 65 73 75 6c |and fast|er resul|
|00000070| 74 20 75 73 65 20 32 34 | 20 62 69 74 20 6f 75 74 |t use 24| bit out|
|00000080| 70 75 74 2e 0d 0a 20 0d | 0a 27 20 49 6e 70 75 74 |put... .|.' Input|
|00000090| 3a 09 34 2d 38 2d 32 34 | 20 62 69 74 0d 0a 27 20 |:.4-8-24| bit..' |
|000000a0| 4f 75 74 70 75 74 3a 09 | 38 2d 32 34 20 62 69 74 |Output:.|8-24 bit|
|000000b0| 0d 0a 0d 0a 27 20 41 75 | 74 68 6f 72 3a 09 41 6e |....' Au|thor:.An|
|000000c0| 64 72 65 61 20 42 65 6e | 6f 6e 69 09 09 09 20 72 |drea Ben|oni... r|
|000000d0| 65 76 3a 09 31 2e 32 0d | 0a 0d 0a 0d 0a 73 74 72 |ev:.1.2.|.....str|
|000000e0| 69 6e 67 09 69 6e 70 46 | 69 6c 65 0d 0a 44 65 76 |ing.inpF|ile..Dev|
|000000f0| 43 6f 6e 09 49 62 6d 70 | 2c 4f 62 6d 70 0d 0a 52 |Con.Ibmp|,Obmp..R|
|00000100| 47 42 09 70 69 78 0d 0a | 66 6c 6f 61 74 20 20 09 |GB.pix..|float .|
|00000110| 78 2c 79 2c 6c 65 76 2c | 6f 66 66 73 65 74 2c 4c |x,y,lev,|offset,L|
|00000120| 2c 56 2c 78 69 2c 79 69 | 2c 50 78 2c 50 79 0d 0a |,V,xi,yi|,Px,Py..|
|00000130| 0d 0a 69 6e 70 46 69 6c | 65 3d 22 74 65 73 74 69 |..inpFil|e="testi|
|00000140| 2e 62 6d 70 22 0d 0a 0d | 0a 49 62 6d 70 3d 4c 6f |.bmp"...|.Ibmp=Lo|
|00000150| 61 64 49 6d 61 67 65 28 | 69 6e 70 46 69 6c 65 29 |adImage(|inpFile)|
|00000160| 0d 0a 4f 62 6d 70 3d 43 | 72 65 61 74 65 49 6d 61 |..Obmp=C|reateIma|
|00000170| 67 65 28 49 62 6d 70 2e | 48 65 69 67 68 74 2f 32 |ge(Ibmp.|Height/2|
|00000180| 2e 35 2b 49 62 6d 70 2e | 57 69 64 74 68 2c 49 62 |.5+Ibmp.|Width,Ib|
|00000190| 6d 70 2e 48 65 69 67 68 | 74 2b 28 49 62 6d 70 2e |mp.Heigh|t+(Ibmp.|
|000001a0| 57 69 64 74 68 2f 34 29 | 2b 6c 65 76 2c 49 62 6d |Width/4)|+lev,Ibm|
|000001b0| 70 2e 42 69 74 43 6f 75 | 6e 74 29 0d 0a 09 09 09 |p.BitCou|nt).....|
|000001c0| 09 20 20 20 27 20 6f 72 | 20 72 65 70 6c 61 63 65 |. ' or| replace|
|000001d0| 20 49 62 6d 70 2e 42 69 | 74 43 6f 75 6e 74 20 77 | Ibmp.Bi|tCount w|
|000001e0| 69 74 68 20 32 34 0d 0a | 0d 0a 69 66 28 28 49 62 |ith 24..|..if((Ib|
|000001f0| 6d 70 2e 42 69 74 43 6f | 75 6e 74 3d 38 29 09 7c |mp.BitCo|unt=8).||
|00000200| 28 49 62 6d 70 2e 42 69 | 74 43 6f 75 6e 74 3d 34 |(Ibmp.Bi|tCount=4|
|00000210| 29 29 0d 0a 20 20 46 6f | 72 20 79 3d 30 20 74 6f |)).. Fo|r y=0 to|
|00000220| 20 32 35 35 0d 0a 20 20 | 20 20 20 70 69 78 3d 47 | 255.. | pix=G|
|00000230| 65 74 50 61 6c 65 74 74 | 65 28 49 62 6d 70 2c 79 |etPalett|e(Ibmp,y|
|00000240| 29 0d 0a 20 20 20 20 20 | 53 65 74 50 61 6c 65 74 |).. |SetPalet|
|00000250| 74 65 28 4f 62 6d 70 2c | 79 2c 70 69 78 29 0d 0a |te(Obmp,|y,pix)..|
|00000260| 20 20 4e 65 78 74 20 79 | 0d 0a 45 6e 64 69 66 0d | Next y|..Endif.|
|00000270| 0a 0d 0a 50 78 3d 33 2e | 31 34 2a 38 2f 49 62 6d |...Px=3.|14*8/Ibm|
|00000280| 70 2e 57 69 64 74 68 0d | 0a 50 79 3d 33 2e 31 34 |p.Width.|.Py=3.14|
|00000290| 2a 38 2f 49 62 6d 70 2e | 48 65 69 67 68 74 0d 0a |*8/Ibmp.|Height..|
|000002a0| 6c 65 76 3d 35 0d 0a 0d | 0a 46 6f 72 20 79 3d 30 |lev=5...|.For y=0|
|000002b0| 20 74 6f 20 49 62 6d 70 | 2e 48 65 69 67 68 74 0d | to Ibmp|.Height.|
|000002c0| 0a 20 20 20 6f 66 66 73 | 65 74 3d 49 62 6d 70 2e |. offs|et=Ibmp.|
|000002d0| 48 65 69 67 68 74 2d 79 | 2f 33 0d 0a 20 20 20 46 |Height-y|/3.. F|
|000002e0| 6f 72 20 78 3d 30 20 74 | 6f 20 49 62 6d 70 2e 57 |or x=0 t|o Ibmp.W|
|000002f0| 69 64 74 68 0d 0a 20 20 | 20 20 20 20 4c 3d 6c 65 |idth.. | L=le|
|00000300| 76 2a 73 69 6e 28 79 2a | 50 79 29 2a 63 6f 73 28 |v*sin(y*|Py)*cos(|
|00000310| 78 2a 50 78 29 0d 0a 20 | 20 20 20 20 20 56 3d 31 |x*Px).. | V=1|
|00000320| 2d 28 2e 34 30 2f 28 6c | 65 76 2a 32 29 2a 28 6c |-(.40/(l|ev*2)*(l|
|00000330| 65 76 2b 4c 29 29 0d 0a | 20 20 20 20 20 20 70 69 |ev+L))..| pi|
|00000340| 78 3d 47 65 74 50 69 78 | 65 6c 28 49 62 6d 70 2c |x=GetPix|el(Ibmp,|
|00000350| 78 2c 79 29 0d 0a 20 20 | 20 20 20 20 70 69 78 2e |x,y).. | pix.|
|00000360| 52 65 64 3d 70 69 78 2e | 52 65 64 2a 56 0d 0a 20 |Red=pix.|Red*V.. |
|00000370| 20 20 20 20 20 70 69 78 | 2e 47 72 65 65 6e 3d 70 | pix|.Green=p|
|00000380| 69 78 2e 47 72 65 65 6e | 2a 56 0d 0a 20 20 20 20 |ix.Green|*V.. |
|00000390| 20 20 70 69 78 2e 42 6c | 75 65 3d 70 69 78 2e 42 | pix.Bl|ue=pix.B|
|000003a0| 6c 75 65 2a 56 0d 0a 20 | 20 20 20 20 20 78 69 3d |lue*V.. | xi=|
|000003b0| 78 2b 6f 66 66 73 65 74 | 0d 0a 20 20 20 20 20 20 |x+offset|.. |
|000003c0| 79 69 3d 79 2b 6c 65 76 | 2b 4c 2b 28 78 2f 34 29 |yi=y+lev|+L+(x/4)|
|000003d0| 0d 0a 20 20 20 20 20 20 | 53 65 74 50 69 78 65 6c |.. |SetPixel|
|000003e0| 28 4f 62 6d 70 2c 78 69 | 2c 79 69 2c 70 69 78 29 |(Obmp,xi|,yi,pix)|
|000003f0| 0d 0a 20 20 20 20 20 20 | 53 65 74 50 69 78 65 6c |.. |SetPixel|
|00000400| 28 4f 62 6d 70 2c 78 69 | 2c 79 69 2b 31 2c 70 69 |(Obmp,xi|,yi+1,pi|
|00000410| 78 29 0d 0a 20 20 20 4e | 65 78 74 20 78 0d 0a 20 |x).. N|ext x.. |
|00000420| 20 20 69 66 28 79 25 31 | 30 3d 30 29 0d 0a 20 20 | if(y%1|0=0).. |
|00000430| 20 20 20 20 50 72 65 76 | 69 65 77 28 4f 62 6d 70 | Prev|iew(Obmp|
|00000440| 2c 22 4f 75 74 22 2c 35 | 2c 35 2c 4f 62 6d 70 2e |,"Out",5|,5,Obmp.|
|00000450| 57 69 64 74 68 2b 31 30 | 2c 4f 62 6d 70 2e 48 65 |Width+10|,Obmp.He|
|00000460| 69 67 68 74 2b 33 30 29 | 0d 0a 20 20 20 65 6e 64 |ight+30)|.. end|
|00000470| 69 66 0d 0a 4e 65 78 74 | 20 79 0d 0a 44 73 70 4d |if..Next| y..DspM|
|00000480| 65 73 28 22 4f 6b 22 29 | 0d 0a |es("Ok")|.. |
+--------+-------------------------+-------------------------+--------+--------+
